home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / QUESTION.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-08-31  |  488 b   |  19 lines
  1. ' QUESTION.BAS
  2. ' This program asks the user a question about programming in BASIC.
  3.  
  4. CLS
  5.  
  6. INPUT "Do you like programming in BASIC so far (Y,N)?  ", reply$
  7. PRINT
  8.  
  9. IF (reply$ = "Y") OR (reply$ = "y") THEN
  10.     PRINT "Great!  There's more fun to come!"
  11. ELSEIF (reply$ = "N") OR (reply$ = "n") THEN
  12.     PRINT "Sorry to hear that.  Don't worry--it gets better!"
  13. ELSE
  14.     PRINT "Please run the program again."
  15.     PRINT "Enter 'Y' for Yes or 'N' for No at the prompt."
  16. END IF
  17.  
  18.  
  19.